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PROGRAMAS 
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PREMIO Y PUBLICACION DE 
LOS MEJORES PROGRAMAS 
DE NUESTROS LECTORES 



UNO ESPERES QUE PASE LA BANDA!! 

SUSCRIBETE A MSX CLUB DE PROGRAMAS 

RECALAMOS 10 GRABADORAS SONY 

PORQUE MSX CLUB DE PROGRAMAS ESTA 
PENSADA PARA TI 

Suscribiéndote no sólo tienes la seguridad de tener todos los meses tu 
MSX CLUB DE PROGRAMAS en tu casa, sino que recibirás DOCE 
números pagando sólo DIEZ. 

Además entre los cien primeros lectores que se suscriban antes del 
25 de mayo de 1985 sortearemos doce grabadoras SONY. 

SUSCRIBETE Y GANA 

BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 

Nombre y apellidos 

Calle N.° 

Ciudad Provincia 

D. Postal Teléfono 

Deseo suscribirme por doce números a la revista MSX CLUB DE PROGRAMAS a partir del número 

Adjunto talón nominal a: 
MANHATTAN TRANSFER, S.A. 
C/. Roca i Batlle, 10-12 
08023 Barcelona 
Tarifas: España por correo normal Ras. 1 .500 - 
Europa por correo normal Ras. 1 .700- 
Europa por correo aéreo Ras. 1 .900 - 
América por correo aéreo Ras. 3.700- 
Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB 
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AVISO IMPORTANTE A 
TODOS NUESTROS LECTORES 

Nuestra revista pretende ser una publicación 
abierta, dedicada exclusivamente a todos los 
usuarios del sistema MSX. 

Creemos que las ventajas que ofrece este nuevo 
sistema, lo va a convertir en el favorito del 
mercado. 

Por ello MSX CLUB DE PROGRAMAS ofrece 
a sus lectores: 

1.° Un consultorio totalmente gratuito sobre las dudas en programación. 

2 ° Un tablón de anuncios abierto a todos nuestros lectores para que en él y de forma gratuita pue- 
dan realizar intercambios de programas e información. Además a través de esta sección admiti- 
remos pequeños anuncios gratuitos sobre cambios y/o compraventas tanto de software como de 
hartware. 

3° También publicaremos todas aquellas cartas que consideremos de interés y 
obsequiaremos en nuestros concursos de programación a aquellos colaboradores espontáneos 
que nos remitan sus programas. 
Para ello sólo tenéis que escribirnos, especificando en el sobre para qué sección remitís vuestra co- 
rrespondencia o sea: 

- TABLON DE ANUNCIOS 
-CONSULTORIO 

- CONCURSO DE PROGRAMAS 

Por si esto fuera poco queremos estar en contacto con todos los clubs de MSX de nuestro país. De 

modo que si pertenecéis a algún club de MSX no dudéis en enviarnos vuestra dirección que publica- 
remos para que os pongáis en contacto con otros usuarios de vuestra misma localidad. 
Ya lo sabéis escribid sin falta a 

MSX CLUB DE PROGRAMAS (sección) 
RocaiBatlle, 10-12 
08023 Barcelona 
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PONGA OTRO VENDEDOR EN SU TIENDA! 




de PROGRAMAS 



VA DIRECTAMENTE AL USUARIO 

Para que todas las tiendas de informática 
y productoras de software entren en línea hemos pensado 
una sección muy especial. 



CLASIFICADOS MSX CLUB 




Aquí el usuario de un 
ordenador MSX podrá 
encontrar todo aquello que 
está buscando en el lugar 
' preciso. 



NO QUEDE FUERA 
DE LINEA 

¡ANUNCIESE! 

Si quiere un vendedor más, 
sólo tiene que ponerse en 
contacto por carta o por 
teléfono con nosotros. 
Diríjase a MSX CLUB DE 
PROGRAMAS 
CLASIFICADOS. 
RocaiBatlle, 10-12 
08023 Barcelona 
Tel. (93)21122 56 







Programa estrella 



JET-MONSTER 



Con este sensacional juego 
estrella abrimos la lista de pro- 
gramas que publicaremos en to- 
dos los números de MSX 
CLUB. Lístalo y juégalo. ¡Es fa- 
buloso! 



Jet-Monster, como su nombre indica en un juego de monstruos muy divertido, que consta de cinco pantallas. En él eres 
un navegante espacial que tiene tres posibilidades de supervivencia. En la primera y segunda pantalla tienes que eliminar 
a un monstruo de nueve vidas, en la tercera esquivarlo, lo mismo que en la cuarta y quinta, pero en estas hay además unos 

campos magnéticos mortales para ti. En el listado se hallan las instrucciones explicadas con mayor detalle. 
Como todos los programas que publicamos, éste también es susceptible de ser mejorado -como por ejemplo modificar el 
tamaño de los monstruos variando la sentencia Screen- Si consigues una mejora interesante envíala. MSX CLUB y otros 
lectores estarán muy contentos de introducirla en sus listados. 



Kai -l ^3:F=tt:P= l ;G=1 :M=0 



3:F=0;P=1 :G=1 :M=0 
V'40_£QLOR_JJZ¡_ 1 ,1 , i :CLB 
X "50 LOCATE 0,0:PRINT "MHHHB 
-MONSTER" : LOCATE 0,4:PRINT "| 
*60 LOCAT E 3,7:PRINT "Para mo\ 
parar Ta barra espadadora" 



-ATE 5,2:PR1NT "JET 



er utiliza los cursores" ¡LOCATE 3,9:PRINT "Para Cjis 



XW rr¿R N=ií TO 5 :PLAY " V 1 50 1 EFGEFG" : 6EEP :NEXT N 

X^Bfl I n CATE 4,11:PRINT "En las ultimas pantal 1 as (3 ,4 ,5)r,o podras disparar 

.Aléjate de los monstruos . " :L0CATE 5 ,22 :PR1NT" (Pu 1 sa la barra espac i ador s 

) " 

V^LJFpR N=0 TO 7 :PLAY " v 15o5dcedce" :BEEP :NEXT N 

^íj30_LOCATE 4,16:PRINT "En la cuarta pantal la , aparecen 

(campos magnéticos) que al ser tocadas te 

V^l.ie IF I NKE í í=" " THEN BOTÓ 120 ELSE GOTÜ 110 
V120__q_S: COLOR 10,1,1 
-LOCATE lí,® rPRINT" 



unas rayas verticales 
quitan una vida." 



MISION" :L0CATE t? , 4 : F-'R I NT 1 ' — — _ — riTtlfflnrilM HTM Mil ' ' 

)¿ l40 F QR N=iZi TO 6 :PLAY "V 1501 EFGEFG" :BEEP :NEXT N 

XLiJ^LOCATE 5,7:PRINT "En las dos primeras pantallas tu misxon es matar mo 

nstruos en la cuarta escapar de los monstruos . hn la quinta , tenar 

as que pasar los campos magnéticos y llegar a las columnas de DEEN . " 

YLálZL-FOR N=0 TO 6 :PLAY "v 15o lab cabe abe " :BEEP :NEXT N 

X|2g LOCATE 5,15:PRINT "Una vez has llegado, acaba el juego, pero antes ten 

dras que pasar los monstruos . " rLOCATE 5,22:PRINT "(Pulsa la barra espaci 

adora) " 

txOSj^FOR N=iZi TO 15 :PLAY " V1508ABCABC" :BEEP :NEXT N 

IF INKEYS=" "THEN 200 ELGE 190 
^20JÍ COLOR 10,1,1 :0N SPRITE GOSUB 1060 
#20-0 OPEN «^grp :"AS#1 
^220 CLS ¡SCREEN 2,3 

X230 A*»CHR* ( !<H0 > +CHRÍ ( ?<HF ) +CHR* ( ?<H 1 F ) +CHR* < &H 1 B ) +CHRÍ ( S<H3F ) +CHRÍ ( &H 1 5 ) +CHRÍ ( &m ) 
V«-CHRí <?<HA) 

?240 B*=CHR* (&H1F) +CHR* (ScHIF) +CHRÍ ( &H 1 F ) +CHR* (&H1F ) +CHR$ ( &HF ) +CHR* ( 8tH7 ) +CHRÍ (&H1 ) 
+CHR* (&H0) 

CS =CHRS ( &H0 ) +CHR* ( ?<H80 ) +CHRÍ ( &HC0 ) +CHR* ( ?<HE0 ) +CHRS ( &HF0 ) +CHR* ( &HF8 ) +CHR* ( ¿HF 
C) +CHRÍ (?/HFC) 

<^ D* -CHRí (?<HFC) +CHR* <?<HFE) +CHR* (?<HFE) +CHR* Í&HFE) +CHR* <S<HFE> +CHR* (&HEO) +CHR* t&W 

QS>+CHR* (?<H0 .) 
\¿_220 SPRITE* (0) =A$+B$+C$+Dí 



Programa estrella 



'£80_E*=CHR* (&H0) +CHR* (&H3) +CHR* (&H7) +CHR* (&H3B) +CHRÍ (&H3B) +CHR* (M43B) +GHR* <8tM3B> 
+CHR* (2<H3F) 



l ^9g _E*=CHR* (&H3F) +CHR* (S/H3F) + CHR* ( ?<H3F ) + CHRÍ ( ?<H3F ) +CHR* < &H3F ) +CHR* (5tHC ) +CHR * (fcHl 
6> tCHR f (&H3C) 

¿300 Gí=CHR*<&H0) +CHR*<ítHÉ0) +CHR* <?,HF0) +CHR* ( &HA0 ) +CHR* (&HF0) +CHR* (&HEtf) +CHR*<*HS 
0>+CHR*(?<HE0) 

<3J0__H|=CHR* (ícHCi) +CHR* ( &HEF ) +CHR* ( &HF8 ) +CHR* ( ?<HD0 ) +CHR* ( ) +CHR* ( i. HC0 ) +CHR* ( ?<H 
60>+CHR$(S<H70) 
<32C SFR ITES ( 1 ) =E*+F*+G*+HÍ 

' 630_SFR I TE* ( 2 ) =CHR* ( ?,H«Z» ) +CHR* ( ?<H0 ) +CHR* (*H0) +CHR* <?<H0) +CHR* ( &H28 ) +CHR * (SfcHSS) +CHR 
* ( ficH82 ) + C HR * < &HQ ) 

<24JZUU=CHR* +CHR* (?<H3) +CHR* (?<H7) +CHR* (ícHD) +CHR* <&H1F> +CHR* <8cH3A) +CHR* (&H30) * 

CHR*(?<H3D) 

<350_1*=CHR* (&H1F) +CHR* < &H7F ) +CHR* ( ?<H7F ) +CHR* ( &H3F ) +CHR* ( Z<H 1 F ) +CHR* < &HF ) +CHRÍ ( ?,H6 
) +CHR* <?/.HiZi) 

* Q60 IC MCHR* (?<H0) +CHR* < ?<HC0 ) +CHR* ( ?<HE0 ) +CHR* ( &HB0 ) +UHR* (&HF8) +CHR* (&HBC) +CHR* l&Hl 
CT+CHR* (?.H5C; 

<370 SPRITE* (5) =I$+J*+K*+D* 

><380 &*=CHR* (&H0) +CHR* (&H7) +CHRÍ (?<HF ) +CHR* (&H5)+CHR* <&HF)+CHR* (&H7)+CHR* WX >+-CHR $ ( 
>050*=CHR* (?<H83) +CHRÍ (?<HF 7) +CHR* ( ?'H 1 F ) +CHR* < ?<HB ) +CHR* ( ?<H3 ) +CHR* (&H3) fCHR* (fcM6) - 
EhR*<&H£) 

X4J&2L-SS=CHR$ l*H0) +CHR* (?/HC0) +CHR* (?<HE0) +CHR* (&HDC) +CHR$ < ?<HDC ) +ÜHR* ( í>HDC ) +CHR* «íiHO 

X>+CHR*(?<HFC) 
( <2jj2_J§PR I TE* ( 3 ) =QS+R*-t-S*+T$ 

^42«_T*=CHR* (&HFC) +CHR* (ícHFC) +CHR* <&HFC) +CHR* (&HFC) +CHR* (&HFC) +CHR* (&H30) +CHR* (&H 
TBT+CHR*<S<H3C) 

<|30 SPRITE*(3)=Q*+R*+Sí-»-T* 

X4_4jZLUí=CHR* (?<H1 ) +CHR* (?<H3) +CHR* ( ?<HF ) +CHR* ( ?<H3F ) +CHR* (S..H3F) +CHRÍ < &H3F ) +CHR f &HFF ) 
+CHR*(S<HFF) 

<430_ W*=CHR* ( &HF8 ) +GHRÍ ( ?,HFC ) +CHR* ( &HF6 ) +CHR* ( ?<HFF ) +CHR* < ítHFF ) +CHRÍ ( IfcHFS ) +CHRÍ v .v. 
CiZ»)+CHR*(?<HC(Zi) 

X*=CHRí ( ?<HE A ) +CHR* ( ?<HFF ) +CHR-F C&HFF ) +CHR* ( ?<HFE ) +CHR* ( ?<HFC ) +CHR* (U<HFC) +CHR* (&N 
F8»CHR*<Í<HF0) 
<47g> 5FRITE* ( 4 ) =U*+Bí +W* + X* 

>«4fi£L_CLS:LINE ( 16 ,13) - (245 , 191 ) ,8,B:LINE (20 ,150)- (240 , 185) ,8 ,B :L1NE ( 23 , 1 52) - (32 , 

1830 ,8,B:LINE ( 175 , 152) - (235 , 183) ,8,B 
y490_COLüR 10:PRESET (88 , 155) iPRJNT # 1 , "FASE : " ;P 
Z500 LE F =l THEN J=4:H=11 
V510 IF P =2 THEN J=5:H=7 
X5 20 IF P= 3 THEN J=4:H=7 

< ¡ 53VL IF f"=4 THEN J=0:H=2 

<540 IF P=5 THEN J=5:H=6 

^550^EUJ_SPRITE 0 , (50 , 152) ,H , J 

¿56JZL F-LIT SPRITE 1 , ( 205 , 1 5 1 ) , 1 0 , 3 

1 ^570 CI RCLE (190,167) ,14,10, , ,1 .4 :PAINT ( 190 , 167) , 10 ¡CIRCLE ( 33 , 1 67 ) , 1 4 ,M , , , 1 . 4 ¿P 
AINT \38 , 167) ,H 

<58JZU-GGLQR 1 :PRESET ( 180 , 167) :PRINT #1,;L:PRESET (28 , 167) :PRINT #1 , ;F 
<590_J = J i NE T85,170)-(150,183) ,8,B:C0L0R 1 0 :PRESET ( 1 03 , 1 73) :PRINT*»1 , "D .G .C" 
-<600JCPLQR 10,1,1 
^ 610 F OR N=0 Tü 100 
^62lTR=224*RND ( 1 ) +20 :T=150*RND ( 1 ) 
<63JZL_ESET (R ,T) ,11 :NEXT N 
^64j g 0=0 _ 



V^80 NFXT N 

^90^ IF P<=4 THENT=15*RND ( 1 ) :CIRCLE ( 120 ,60) ,40 ,T , , , 1 .4 rCLRCLE (60 ,80) , 15 ,T , , , 1 . 4 

:PAINT (120,60) ,T:PAINT (60,80) ,T 
^00 IF P=3 THEN GOTO 1270 
^10 if P=4 THEN GOTO 1380 
<Z20_IF P=5 THEN GOTO 1650 
^30 X = 130:Y = 130 

>^0~^ÍF P=2 THEN Q=7:M=5:C=100:V=30 
^50~1F P=l THEN Q=ll :M=4 :C=50:V=10 




PHT fiPRITE 3,<C,V),Q,M 
* 770 PUT S PRITE 2,<X,Y),10,G 

*f780 D^SJJEEI^ 

7^iZr-rFD=iZi THEN PUT SPRITE 2 , ( X , Y ) , 10 ,G : Y = Y+6 :PUT SPRITE 3 , (C ,V> ,Q ,M :C=C-liZi :V=V+ 4 
IF D=3 THEN X = X+5 : Y = Y+3 :C=C-15 :G=1 : IF X>210 THEN X=2H2i:GGTO 840 
£Blg>,.IF D=7 THEN X=X-5 : Y=Y+3 :V=V-15 :C=C+19 :G=3 : IF X<16 THEN X=16:G0T0 840 
*820 IF D=l THEN X=X+10 : Y = Y-5 ;X = X-10 ; C=C+15 zV=V+10 : IF Y<0 THEN Y = U5:G0T0 840 
*83jZL-XE. INK.EY*=" "THEN GOTO 910 
< 840 IF. C<16 THEN C=16:C=C+20 
y 8 50 IF_ Y>115 THEN Y = 115 
>SS6B I E O210 THEN C=210:C=C-35:V=V+3 
XaiQ IF V > 1 1 5 THEN V=115 :V=V-10 
*880 IF V<0 THEN V=V+15 
gB"9jí SPRIT E ON 
^WiZTGÓTd" 760 

^TT^J^G=1 THEN Z=X+35:B=Y+10 
y720_JLF_J3=3 THEN Z = X-35 :B=Y + 10 
t¿ 930 FOR N=0 TO 10 
kí940^PÜY SPRITE 4,(Z,B),6,2 

fcggg IF *6*1 THEN Z«2+15 
^ 500=3 THEN Z = Z -15 
/ 970 IF_ J Z>255 THEN Z=255 
íx:9 80 IF Z <0 THEN Z=0 

^?30__£QUND 0,0:SOUND 1 , 5 : SOUND 2,0: SOUND 3,13:S0UND 4,255 a SOUND 5,15:S0UND 6,l3:S 
OUND 7,0:SOUND 8,16:S0UND 9,16:S0UND 10,16:SOUND 11,0 i SOUND 12,16:SÜUND 13,0:FÜR 
U=l TO 30:NEXT ü:SOUND 12,56:S0UND 13,0 
s/1 000 NEJ (T N 

y4 010 PU T SPRITE 4, (255,100) ,1 ,2 

yíja20J-=L-l :LINE ( 187 , 165) - ( 197 , 175) , 10 ,BF :£KESET ( 180 , 167) :COLGR 1 :PRINT #1,L:IF 

L=0 THEN GOTO 1240 
y 1030 IF P=4 THEN GOTO 1430 
y]^i40JF P=5 THEN GOTO 1650 
VI 050 GO TO 760 
vi 060 SP RITE OFF 

y 1070 FO R N=0 TO 30:BEEP:NEXT N 
^1 080 l f P>=3 THEN GOTO 1130 

^^1090 Tf G=l AND X<Z AND Z-8>X THEN GOTO 1120 
XI 100 IF G=3 AND X>Z AND Z+8<X THEN GOTO 1120 
£l 1 1 0 GOTO 113 0 

XjJL20_E=F+1 :LINE (30 , 167) - (45 , 175) ,H ,BF :COLOR 1 :PRESET (28 , 167) :PRINT #l,F:GGTO 1 
140 

K\l3QL_L=LzJ. :LINE ( 187 , 165) - ( 197 , 175) , 10 ,BF :PRESET ( 1 80 , 1 67 ) -.COLOR 1 :PRINT #1,L 
/l"Í40 IF P=3 T HEN F=F+1 
kH 50 IF P=5 THEN X=200 

X i 1 fitr-JF fZsZ-IMÚ F=9 THEN P=P+ 1 :F=0 :FOR N=0 TO 200-.NEXT N:GÜTO 220 

^l j.70 IF P= 3 AND F=20 THEN P=P+ 1 :F=0 :FOR N=0 TO 200:NEXT N:GOTO 220 

> 1180 IF L=0 THEN GOTO 1240 

Xll9jZL_PJJT_SPRITE 4 , (255 , 100) , 1 ,2 

^ 1200 IF P=3 THEN GOTO 1280 

*j_ 210 T_ F P=4 THEN GOTO 1430 

<¿ i22B IF P=5 THEN GOTO 1680 

X1230_JaDJO 740 

^1240 PRESET (100,100) 

>O250_COLOR 10:PRINT #1,"GAME OVER" 

X fr26g IF INKEY»P" " THEN GOTO 10 ELSE GOTO 1260 

>d'27 0_ X^T* .0:Y = 100 

>C1 280~~T=T: Y = Y :C=20 : V= 100*RND ( 1 ) 

* 1 29121 P S ET ( 200,30) :DRAW "C8R20D100L20U20R5U60L5U20" :PAINT (215,50) ,6 
*lg j¿)0 PUr~B PRITE 2, (X, Y), 10, 3 
x 1310 PUT SPRITE 3,(C,V),7,4 
\* 1320~D^ST lXK(0) 

4^3H0 TF D=0 THEN PUT SPRITE 2 , ( X , Y ) , 10 ,3 : Y = Y +7 :PUT SPRITE 3 , ( C , V ) ,7,4: C=C+8 : T F Y 
'¿>100 THEN Y=100 
/J L 340_IF C>200 THEN GOTO 1140 

¿ 1350 IF D=l THEN Y = Y-10 :C=C+8 : IF Y<0 THEN Y=0 
^1360 SPRITE ON 
^1370 GOTO 1300 

) g3W X=210 :Y=97 :G=3 :C=50 :V=97 
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Programa estrella 



— 



(25, 180) :DRAW"cl0r35dl0135ul8" :PAINT (48 , 185) , HZi :COLOR | ; PK flSE. T t2Q 
INTfc 1 , "DEEN" 

•^1400PSET (15,130) :DRAW "C8R140D20R50U20R40" :PAINT (20*138) 8 
PÜlflD&l é&i COLOR 10JFOR N=0 TO 8:LINE (S , 158) - (8 ,58) :S=S+5:NEXT N 
.Xi42tfS=50: COLOR 10:FOR N=0 TO 6 :LINE (S ,0) - (S ,58) :S=S+5 :NEXT N 
XI 438 PU T SPRITE 2,<X,Y),10,G 
> rT448 P UT SPRITE 3,<C,V> ,3,0 
^1458 D= STICK(0) 

^lá¿JZL_If_D=0 THEN PUT SPRITE 2 , (X ,Y) , 10 ,B :Y=Y+7 :PUT SPRITE 3 , (C , V) ,3 ,8 :C-C+7 
VL420-IM>*3 THEN X = X+5 : Y = Y+7 :C=C-15 :G=1 :IF X>200 THEN X=208:GGTÜ 1588 



_ THEN X=28:G0T0 1588 
:GOTO 1588 



^1480 IF. D=7 THEN X = X-7 : Y = Y+7 :C=C+15 :G=3 : V=V-9 : ] 
* L 49gl H 0=1 THEN Y = Y-7:C=C-18:V=V+15:IF Y<0 
XÍ580 IF C>288 THEN C=288 

*1518 IF X>58 AND X<68 AND Y<58 THEN X=218:G0T0 1138 
*1528 IF C<16 THEN C=16 
*1530 IF Y>97 THEN Y=97 
X1540 IF V<0 THEN V=0 
XI 558 IF V>97 THEN V=97 

<Í568 IF XM58 AND X<198 AND Y .• 58 THEN X=218:GUT0 1130 
C 1370 IF L=8 THEN GGTO 1248 

<T1588 IF X<40 AND Y < 100THEN P=P+1 :F=0 :A=A+2 :GOTO 1610 
<"1590 SPRITE ON 
^1600 GOTO 1430 

£>1610 FOR N=0 TO 288:NEXT NrSCREEN 8:CLS:C0L0R 18,1,1 

fr l620 LOCATE 0,0;PP1nY i*l»iMMMM MMMMBMM^^-, . 8, SPRINT & 

■■■■■■■■■■^ 5,2:PRINT"HAS LLEGADO AL TEMPLO DE DE 

EN :LOCATE 5,7:PRINT "Prepárate para entrar en el." 
1638 LOCATE 5,22:PRINT "(Pulsa la barra espadadora)" 
<1640 IF INKEYí=" "THEN GOTO 220:ELSE GOTO 1640 

*lt^ S Z™l F0R N= * T ° 4:PSET <S,30):DRAW "c7r28d51 3d 1 88r3d5 128u5r3u 1 88 1 3u5d^r281 ! 

8dl88r51 I5r5ul 88r 18d 188" :S=S+48 sNEXT N 
¿-1668 LINE (38 , 148) - (238 , 158) ,7,BF 
>1678 X=288:Y = 105:X 1 = 150: Y 1=20 :X2=70:Y2=20:G=3 
^1680 PUT SPRITE 2,(X,Y),10,G 
*l690 PUT SPRITE 3, (XI ,Y1) ,6,5 
^-1788 PUT SPRITE 4, <X2,Y2> ,6,5 
^Í7Í'8 D=STICK(8) 

^Y2)%^!yÍ-?m2Iy^?|^ 2,(X,Y),18,G:PUT SPRITE 3 , ( X 1 , Y 1 ) , 6 , 5 : PUT SPRITE 4,, 
^1730 IF ¿=7 THEN X=X-8 : yT=Y 1+5 : Y 2= Y 2+ 10 : IF X<28 THEN GOTO 1828 
• O1740 IF D=3 THEN X = X+8 : Y 1 = Y 1 - 7 : Y 2= Y 2+7 : IF X >200 THEN X=288 

sí/1758 IF Y 1>1 88 ÍHEN Y 1=8 

A1768 IF Y 1 <8 THEN Yl = 138 
■ ^ 1778 IF Y 2.. -188 THEN Y2=8 

¿1788 IF Y2<8 THEN Y2=138 

^1798 IF L=0 THEN GOTO 1798 
1888 SPRITE ON 
1818 GOTO 1688 

1828 SCREEN 8:CLS:C0L0R 18 , 1 , 1 :SPRITE OFF 
>I838 LOCATE 8,8:PRINT 

O HAS LOGRADO" :LOCATE 8,4:PRINT 
*1840 FOR N=0 TO 50:BEEP:NEXT N 

¿rl850 LOCATE 5,22:PRINT "(Pulsa la barra espadadora)" 
^868 IF 1NKEY-I-" "THEN GOTO 1878 ELSE GOTC 1868 

1878 P=l :R=R :l=L :F=8 

)838 GOTO 



: LOCATE ^,2:PRiNT 



MI PROGRAMA MSX 



Todos nuestros lectores están invitados a escribir sus propios 
programas. 

MSX CLUB DE PROGRAMAS seleccionará aquellos que estén 
mejor diseñados, que sean originales, útiles o entretenidos y los 
publicará. 

Todos los listados que publiquemos recibirán 5.000 pts. y 
participarán en el sorteo de una fabulosa impresora. 

BOLETIN DE PARTICIPACION 

(Para enviar adjunto al listado) 

NOMBRE DEL PROGRAMA 

TIPO DE LISTADO 

JOYSTICK O TECLADO 

INSTRUCCIONES DE CARGA: 

INSTRUCCIONES DE JUEGO: 

TIPO DE GRABADORA EMPLEADA 

MARCA DEL ORDENADOR 

NOMBRE Y APELLIDOS DEL AUTOR 

EDAD CALLE N.° 

CIUDAD D.P TEL. . 

Para uso exclusivo de MSX CLUB DE PROGRAMAS 

FECHA DE RECEPCION NOMBRE DEL EVALUADOR 

PUBLICABLE GRAFICOS SONIDO 

ORIGINALIDAD 

OBSERVACIONES 



Para todos aquellos listados que superen las 25 líneas es 
imprescindible enviar cassette grabado. 



Monitor al día . 



IMPRESORA 
TOSHIBA HX-P570 



El gran 



de datos 




Si bien no es veloz, la impresora plotter 
Toshiba HX-P570 es ideal para que los 
usuarios de microordenadores MSX lis- 
ten sus programas y realicen el proceso de 
textos. Junto con los programas suminis- 
trados por Toshiba, esta impresora tiene 
cuatro colores con los que puede realizar 
gráficos a todo color, diagramas de ba- 
rras, etc., a una velocidad de 285 pasos 
por segundo. El precio aproximado es de 
68.000 pts. 



UNIDAD DE 
DISCOS SONY 

El gusto de la perfección 




Las unidades de disco es uno de los pe- 
riféricos que ofrecen mayores posibilida- 
des de uso, ya que el almacenamiento de 
datos se hace cada vez más importante 
para el usuario de un microordenador. El 
Micro Ploppy Disk Drive de Sony-HBD- 
50-, está diseñado para usar diskettes de 
3,5 pulgadas y para conectarse en apara- 
tos MSX de cualquier marca. Entre sus 
principales características destacamos el 
controlador WD2793-02, su velocidad de 
transferencia de 250K/segundo y su velo- 
cidad de rotación de 300 r.p.m. Los tipos 
de ficheros son secuenciales y aleatorios. 
El precio aproximado del HBD-50 es de 
8 1.000 pts. 



HYPER SPORTS I y II 



— 



Novedades de Konami 



La Konami, cuyos cartuchos sobre 

Eruebas olímpicas -Track and Field I y 
[-, están alcanzando un notable éxito de 
ventas, continúa con la línea deportiva y 
ya ha puesto en el mercado dos nuevos 
cartuchos de vídeo games para la norma 
MSX. Se trata de HYPER SPORTS en las 



versiones I y II, que contienen interesan- 
tes pruebas en las que los jugadores tienen 

3ue poner de manifiesto una gran habili- 
ad y notables reflejos para superarlas. La 
importación de estos cartuchos no tardará 





DE ESTRATEGIA 
EMPRESARIAL 



Dimensión NEW Lanza 







«EL GERENTE» y 
«CONTABILIDAD 
DOMESTICA» 

La empresa española de software DI- 
MENSION NEW -Meridiana, 308, ent. 
52. 08027 Barcelona-, ha lanzado al mer- 
cado dos cassettes verdaderamente inte- 
resantes. Se trata de «El gerente», un pro- 
grama de juego de estrategia empresarial, 
semejante en su estructura a los que se 
realizan internacionalmente entre equi- 
pos de grandes compañías. 

El otro cassette contiene el programa 
«Contabilidad doméstica» y, como su 
nombre lo indica, el usuario puede dispo- 
ner de una completísima contabilidad 
personal para el hogar o para una peque- 
ña empresa, dado que cada uno tiene que 
determinar los sectores o conceptos que 
más le interesen. 




MICROORDENADOR CANON V-20 

Un MSX muy interesante 



El V-20 es el microordenador de la fir- 
ma Canon para el sistema MSX, de gran 
presencia y notable versatilidad. Global- 
mente el V-20 tiene dos características 
muy interesantes. Hay que destacar sus 
64K de base que permiten una buena en- 



trada al MSX-DOS, además de una salida 
de impresión que lo coloca ante una utili- 
zación semi profesional. Su teclado de 72 
teclas es suave y agradable al tacto. Su di- 
seño y fácil acceso lo hacen un micro muy 
interesante. 




EL BOOM DE LOS MSX CLUBS 



El éxito extraordinario de los 
microordenadores de la norma 
MSX ha dado origen a que muchos 
usuarios se agrupen en clubs. Si 
bien hasta ahora la función de és- 
tos no está totalmente definida, sí 
está claro el interés por llevar a 
cabo una labor conjunta de inter- 
cambio de conocimientos, progra- 
mas, periféricos, etc. En Madrid ya 
funciona el «Club Usuarios 
MSX», y en Barcelona el «3D Sis- 
temas». 

El primero de ellos -Pza. del 
Navio 1. 28042 Madrid-, nos hace 
saber que funciona como una Aso- 
ciación dedicada a solventar las 
dudas de los miles de usuarios y 
también de relacionarlos, para lo 
lo gestiones con 
aña y del extran- 




jero. La meta es llegar a una Fede- 
ración que coordine la labor de to- 
dos los clubs. 

El segundo de los clubs mencio- 
nados -Balmes, 252. 08006 Barce- 
lona-, lleva a cabo una intensa la- 
bor informativa sobre el uso del 
material MSX y funciona con la 
misma norma que emplean los vi- 
deoclubs, es decir que para aso- 
ciarte hay que pagar una cuota de 
inscripción y otras periódicas, lo 
cual te da derecho al uso de harwa- 
re, alquiler de periféricos e inter- 
cambio de programas. 

En esta misma sección -y a r 
dida que nos informen de su e 
tencia- iremos dando a ce 
los clubs de otras ciudades es 
las. 
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El MSX por dentro 



LAS ARMAS DEL 
PEQUEÑO SAMURAI 



El reciente boom de los micro 
ordenadores del sistema MSX 
no es producto del azar. Un 
grupo de empresas japonesas y 
la Philips europea se han deci- 
dido, en beneficio del usuario» 
a que todos sus aparatos hablen 
un idioma común. El resultado 
salta a la vista. En pocos meses 
se han vendido miles de apara- 
tos y algunas compañías han 
agotado sus existencias. 



La rápida popularización de los mi- 
croordenadores cogió por sorpresa 
a los fabricantes, que cometieron el 
mismo error en el que ya habían incurri- 
do en el campo del vídeo: pretender im- 
poner -cada uno por su cuenta- su pro- 
pio sistema ocasionando una serie de 
trastornos y gastos inútiles en los usua- 
rios. Muchas empresas informáticas en- 
traron en la misma absurda competencia 
y antes de desarrollar un sistema común y 
compatible, se dedicaron a fabricar y 
vender sus propios aparatos, con su pro- 
pio lenguaje, limitando las posibilidades 
de empleo de software y periféricos de la 



misma marca e incluso a un mismo mo- 
delo. 

Las compañías japonesas que decidie- 
ron intervenir en el mercado informático 
con sus propios aparatos tuvieron el 
buen criterio de desarrollar sus produc- 
tos con un sistema único y entrar a com- 
petir con el caos de lenguajes particula- 
res, por un lado y con modelos eficaces 
por otro. De modo que la diferencia en- 
tre las marcas del sistema MSX y las otras 
estriba fundamentalmente en que ellas 
ueden «hablar» entre sí sin ningún pro- 
lema, y la diferencia entre las propias 
marcas MSX hay que buscarlas en las 



E 




particulares prestaciones que ofrecen los 
distintos modelos, los que se adecúan 
más o menos a las necesidades de cada 
usuario. 

£1 corazón del samurai 

El micro ordenador MSX es como un 
pequeño samurai con el que los japone- 
ses han salido a competir en el mercado 
internacional con otros sistemas y marcas 
tan introducidas como Commodore, Sin- 
clair, IBM. etc. El arma más eficaz es la 
compatibilidad de las distintas marcas 
con todo el software y periféricos -im- 
presoras, monitores, disc drives, joys- 
ticks, etc-, pero su fuerza está en un di- 
minuto y potente elemento interior que 
constituye su verdadero corazón, el mi- 
croprocesador Z80A. Y este corazón es 
complemento primordial de una combi- 
nación de chips que constituyen el cere- 
bro de un aparato MSX. Así, el micro- 
procesador ¿80A está relacionado con el 
chip de vídeo TMS-9929 A y el chip de 
audio AY-3-8910, lo que da como resul- 
tado una resolución de texto de 24 X 32 ó 
40 caracteres; un modo gráfico de 
256 X 192 pixels; 16 colores; 32 sprites y 
un sonido de 8 octavas y 3 voces. 

Establecidos los componentes tecno- 
lógicos que hacen que un ordenador 
MSX viva y piense, la pregunta que que- 
da en el aire es ¿en qué consiste el M§X? 
La norma MSX -Microsoft Extended- 
ha sido desarrollada por la compañía 
norteamericana Microsoft y la compañía 
nipona Kabushi Kaisha ASCII emplean- 
do el lenguaje BASIC MSX o BASIC-E 
(Extendido) con el objetivo de competir 
en el duro mercado norteamericano y ja- 
ponés en el segmento de los microorde- 
nadores domésticos. 

La Kabushi Kaisha ASCII -una de las 
mayores empresas editoriales de publica- 
ciones informáticas de Tapón-, tenía 
como dato fundamental el hecho de que 
el BASIC-E era el preferido por los japo- 
neses para la programación. Al mismo 
tiempo la industria japonesa necesitaba 
dar un golpe de timón a sus ventas, por lo 
que la mayoría de los grandes fabricantes 
no dudaron en apoyar el proyecto de lan- 
zar al mercado nacional e internacional 
una norma accesible, versátil y standard. 
Fue un rotundo éxito. 

La utilidad de tu micro 

Una vez que tienes un micro ordena- 
dor MSX lo importante es sacarle todo el 
rendimiento de que es capaz, porque en 
el área doméstica son únicos. Sabemos 
que el empleo doméstico/profesional de 
un ordenador consiste sobre todo en el 
procesamiento de texto, archivo, cálcu- 
los, etc., es decir todo aquello que esté di- 
rectamente relacionado con cosas de la 
vida cotidiana, incluido los juegos. 

El procesamiento de texto es tal vez el 
más común de los usos, pero aún así son 
pocos los que conocen las inmensas posi- 
bilidades que él tiene. Para empezar se- 
ñalaremos algo tan obvio como la impre- 



sión de cualquier documento en cual- 
quier idioma que se lo programe. Esto es 
posible porque los MSX tienen un gran 
editor de BASIC. Gracias a él es posible 
listar un programa y pasarlo tanto de arri- 
ba abajo, como de abajo arriba, pasar di- 
rectamente a una constatación particular 
y hasta introducir partes de un listado a 
un artículo sin necesidad de listarlo total- 
mente. 

Otro uso directo y sumamente útil es el 
archivo. Gracias a él se puede tener una 
completísima agenda doméstica, incor- 
porando nombres, direcciones, teléfo- 
nos, profesiones, etc., accediendo de un 
modo fácil con sólo utilizar la función 
SEARCH. 



La empresa estadounidense 
Microsoft se unió a la nipona 
Kabushi Kaisha ASCII para 
desarrollar la norma MSX 
-Microsoft Extended- que 
emplea el potente lenguaje 
BASIC-E. 



También el uso de los programas de 
cálculos, a pesar de su poca difusión, es 
factible. Obviamente este aspecto puede 
ser sorprendente, porque en general los 
fabricantes, hacen este tipo de programa 
pensando en las grandes compañías, 
pero no en el público que tiene aparatos 
en su hogar. De todos modos, los presu- 
puestos familiares a veces son verdadera- 
mente complejos tanto por la diversidad 
de gastos que se ocasionan, como por las 
previsiones que se necesitan para mante- 
ner una economía hogareña sana. Un 
programa de cálculos y el procesador de 
textos son los dos programas básicos que 
necesita el usuario si quiere planificar fi- 
nancieramente su casa. El programa de 
cálculos permite manejar operaciones en 
una hilera completa de cifras al mismo y 
el procesador de textos actúa como tipo 
especializado de base de data almacenan- 
do cifras y fórmulas en lugar de palabras. 



Usar el cassette 

Está claro que el disc drive es mucho 
más potente y más veloz que un cassette, 
pero por ahora resulta algo caro, cosa 
que no durará mucho. De todos modos, 
aunque el proceso de almacenaje en cas- 
sette resulta algo lento es una buena sali- 
da para aquellos que quieren conservar 
sus listados. En este sentido los aparatos 
MSX tienen la ventaja de que el BASIC se 
encuentra en ROM y no en RAM. Esto 
permite que puedas emplear el procesa- 
dor de texto. Así un cartucho ROM pue- 
de ser enchufado en un MSX dejando li- 
bre 32K de RAM. El cartucho se carga 
instantáneamente, pero no así el cassette, 
con el que tienes que esperar que pasen 
todos los datos del listado. Con los 32K 
que te quedan libres puedes almacenar 
unas 5. 000 palabras al mismo tiempo, lo 
cual es suficiente para la mayoría de los 
usuarios domésticos. 



El futuro MSX 

Es intención de los fabricantes de los 
microordenadores MSX hacer aparatos 
que «resistan al futuro», partiendo de la 
idea de que lo que es novedoso hoy, ma- 
ñana es chatarra. Esto incluye también el 
sector de los periféricos. El problema ra- 
dica fundamentalmente en la incompati- 
bilidad, por lo que si bien estos aparatos 
tienen momentáneamente alguna limita- 
ción técnica, tienen por otro lado la enor- 
me ventaja de que estos pequeños pro- 
blemas pueden ser superados añadiéndo- 
les nuevos periféricos de cualquier marca 
de la misma norma. 

Esto también facilitará la labor de los 
fabricantes de software y periféricos, que 
tendrán así un mercado más amplio que 
el que tenían ahora condicionado a deter- 
minados modelos de tal o cual marca. 
También se beneficiarán los usuarios que 
no sólo recibirán día a día mayores pres- 
taciones, sino que podrán comunicarse 
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E1MSX por dentro 




entre ellos con mayor facilidad intercam- 
biándose listados, periféricos, cartuchos, 
etc. Ante este panorama creemos que 
MSX CLUB DE PROGRAMAS puede 
ser un puente único para miles de usua- 
rios de MSX. 



LOS 21 FABRICANTES DE 
MSX 

Japón: Sony, Toshiba, Canon, Ams- 
trad, Brother, Casio, Hitachi, Fujitsu, 
JVC, Mitsubishi, Nec, Panasonic, Sanyo, 
Pioneer, Sharp y Yamaha. 

Hong-Kong: Spectrovideo Int. Ltd. 
Corea: Daewoo, Goldstar, Samsung. 
Holanda: Philips. 



RETRATO TECNICO DE UN 
MSX 

Microprocesador: Z 80 A 
Frecuencia de reloj: 3,58 MHz 
Memoria ROM: 32K (extensible) 
Memoria RAM: 32K (extensible) 
Memoria accesible al MSX-DOS: 64K 
(máximo) 
Memoria RAM vídeo: 16K 
Lenguaje: Basic MSX (Basic-E) y má- 
quina 

Modo de texto 1 : 24 líneas x 40 carac- 
teres 

Modo de texto 2: 24 líneas X 32 carac- 
teres 

Modo gráfico: 256 X 192 pixels 



Modo gráfico de baja resolución: 64 x 
48 bl. 

Colores: 16 (8 de fondo y 8 de texto) 
Sprites: 32 formas definióles 
Sonido: 1 sintetizador de 3 canales y 8 
octavas 

Teclado: 73 teclas alfanuméricas y sím- 
bolos gráficos 

Conexión cartuchos: 1 ó 2 conectores 
de 50 contactos 

Conexiones directas: Cassette, vídeo/ 
audio, R.F., Impresora (centronics), joys- 
ticks (2), lectores de diskettes 

Interface cassette: velocidad variable 
1200/2400 baudios 

Conversión de códigos: Hexadecimal, 
Binario y Octal 

LAS ORDENES DEL MSX 

Sistemáticas: 
AUTO: Numeración automática 
CONT: Continúa la ejecución 
DELETE: Supresión de líneas 
LIST: Listado de líneas 
LLITS: Impresión de líneas 
NEW: Supresión del programa 
RENUM: Renumeración del programa 
RUN: Ejecución del programa 
TRON-TROFF: Trazado de la ejecu- 
ción 

Genéricas: 

CLEAR: Suprime las variables 
DATA: Información del programa 
END: Fin del programa 
INPUT: Entrada del teclado 
LET: Asignación 

LINE INPUT: Entrada de cadena 
LPRINT: Impresión 



LPRINT USfNG: Impresión en un for- 
mato X 
OUT: Salida para el Z80 
POKE: Acceso a la memoria 
PRINT: Escritura en la pantalla 
PRINT USING: Escritura en formato 
READ: Lectura de información 
REM: Destacar 

RESTORE: Localización de datos 
STOP: Paro provisional 
SWAP: Cambio de variables 
WAIT: Espera 

FUNCIONES GENERICAS 

BASE: Base de cálculo 
BINS: Conversión en binario 
CDBL: Conversión de doble precisión 
CINT: Conversión de enteros 
CSNG: Conversión de precisión sim- 
pie 

FIX: Supresión de decimales 

FN: Función del usuario 

FRE: Memoria disponible 

HEXS: Conversión en hexadecimales 

INKEYS: Modo de tablero 

INP: Entrada de Z80 

INPUTS: Espera teclado 

INT: Parte de entero matemático 

LPOS: Posición del cursor impresora 

OCTS: Conversión en octal 

PEEK: Acceso a la memoria (lectura) 

RND: Número aleatorio 

SPC: Avance del cursor 

TAB: Posición del cursor 

TIME: Reloj 

USR: Rutina en lenguaje máquina 
VAL: Conversión efe una cadena en nú- 



VARPTR: Posición de las variables 
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¡SOMOS LOS PRIMEROS! 
LA PRIMERA REVISTA 
DE MSX DE ESPAÑA 



JUEGOS 



Concursos de 
programas 
Listados 
Sorteos de 
cartuchos 
Novedades de 
aparatos 
Bancos de 
prueba 
Iniciación al 

BASIC-MSX 



PIDE TU 
SUPER JUEGOS EXTRA MSX 
¡YA ESTA EN TU KIOSCO! 




Programación 



COMO PROGRAMAR 
UN JUEGO 



Es imposible resistirse a la ten- 
tación. La mayoría de los usua- 
rios de un microordenador, y es- 
pecialmente los de un MSX, por 
la capacidad gráfica y de sonido, 
se ha visto tentada de hacer su 
propio juego. Intentar un lista- 
do no es difícil. Aquí te lo de- 



En primer lugar tienes que hacerte a 
la idea de que tu primer programa 
de juegos ha de ser muy sencillo. 
Es decir que tienes que pensar en algo que 
no sea complicado de llevar a la práctica 
tanto en sus gráficos como en su desarro- 
llo. 

Lo primero que tienes que hacer antes 
de escribir un programa es pensar deteni- 
damente en lo que quieres hacer. Muchos 
expertos en programación se pasan más 
tiempo diseñando el juego, es decir, ha- 
ciendo un plano del mismo que escribién- 
dolo, lo cual es muy lógico, porque de no 
ser así te asustarías ante el primer obs- 
táculo por sencilla que fuese su solución. 

Hay dos preguntas básicas que tienes 
que tener en cuenta: 

1- ¿Qué ha de hacer el programa? 

2- ¿Qué aspecto ha de tener el gráfico? 
Una vez respondidas estas preguntas se 

piensa en los parámetros que tienen que 
ser inicializados antes de pasar a la pro- 
gramación propiamente dicha. Una vez 
sepas lo que quieres que haga el progra- 
ma, debes pensar en cómo planteárselo al 
ordenador. Una herramienta útilísima 
son los diagramas de flujo, que te servirán 
para organizar tus ideas en forma de se- 
cuencias lógicas inteligibles para tu micro. 

Ten presente que cualquier ordenador, 
se limita simplemente a efectuar compara- 
ciones -a gran velocidad, por supuesto- 
entre secuencias de números binarios, 
que son los que utiliza la máquina para al- 
macenar la información. Por lo tanto, 
cuando construyas tu organigrama, pien- 
sa que para todas las condiciones has de 
tener en cuenta que puedan cumplirse o 
no y lo que debe suceder en cualquiera de 
los dos casos; es decir, ¿irá otra línea de 



Crograma según sea verdadero o falso, o 
ien volverá a la misma? ¿Deberá termi- 
nar el programa así? 



Para ser más claros te lo mostramos en 
el diagrama de flujo sobre la interrogación 
«¿Fumas?». 
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I INICIO 



NO 



SI 



¿Tiene 
cigarros? 



NO 


PIDE 


J ¿Le dan? 1 


NO 




UNO 





SI 



¿Tiene 
fuego? 


NO 


PIDE 
FUEGO 


¿le dan? 





SI 



SI 




cigarro 
en la 



¿esta el filtro 

en el sitio correcto? 



NO 



Ponerlo 



SI 



encender 



¿FUMAS? 



¿TIRA 
el cigarro? 



NO 



APAGAR 
FUEGO 



¿APAGO el fuego? 





SI 




FUMAR 
ASPIRAR 




NO 


1 


¿TERMINO 
el cigarro? 






SI 


| m 




El diagrama de flujo que es una 
representación gráfica y concisa de 
una situación dada, con todos los 
pasos del proceso colocados en se- 
cuencia lógica, será siempre el pri- 
mer paso antes de escribir ninguna 
instrucción en Basic. y* 

A continuación una secuencia 
(no exhaustiva) qujrpretende simu- 
lar el hecho de encender un cigarri- 
llo, con algunas de las implica- 
ciones lógicas asociadas a este 
proceso. 

Sólo se han tenido en cuenta al- 
gunas posibilidades. Seguro que tú 
puedes ampliar este sencillo orga- 
nigrama. Cuanto más complejo 
sea, cuantas más posibilidades 
contemple, mayor verosimilitud 
tendrá nuestra simulación, más 
)lejo, por tanto, sen 



Programas 



REBOTES 



Jugar al billar es para muchos 
una cuestión de precisión mate- 
mática. Esta mesa del MSX casi 
puede demostrártelo. Sólo tie- 
nes que usar bien el taco. 
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56 



\ 
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70 



En la parte superior de la pantalla se 
halla una serie de cifras y letras que per- 
mite escoger el lugar donde se desea 
hacer rebotar la bola entre 1 y Z. Una 
vez que se dispara la bola sale lanzada 
hacia arriba y rebota y, eventualmente 
vuelve hacia abajo, rebota y sigue así 
hasta que llega al final. Si se desea que 
la bola vaya primero hacia abajo hay 
que introducir el signo menos. 

Esperemos que te diviertas y que 
amplíes este sencillo programa. No te 
olvides de enviarnos la mejoras. Mu- 
chos estarán contentos de introducirlas 
en sus MSX. y. 




10 REM* * * REBOTES* * * 

20 CLS:INPUT" TECLEE UN NUMERO ENTERO 
30 FOR 1= 1T0 J 7 : Y=RND < 1 ) :NEXT 



TcT TüCq r i,nzi 
"5ETPRIN T" 01234$ 

60 X= 1NT í RND ( 1 ) * 
70 Y = I NT ( RND ( 1 ) * 1 8+ 
80 LOCATE0 , X : PR I NT " ©" 
90 L0CATE39,Y :PRINT"0" 
100 LOCATE0,23:PRINT"TU 
110 S=0 
120 T=X 

130 FOR J= 1T0 37 
140 T=T-X/ <ASC(Rí )-ASC("0")+7* 
150 IF T>=220R T<=0 THEN 220 
160 LOCATEJ ,T :PRINT"G" 
170 NEXT J 

180 IF ABS<T-Y><3 THEN 
190 PRINT"OTRA PARTIDA (S/! 
200 IF R*="N" THEN END 
210 GOTO 40 

220 X=-X 
230 S=S+1 
240 GOTO 170 
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— 



NUEVE 
POR NUEVE 



Tienes dos opciones. Llegar 
primero o llegar último a la 
meta del 9.9. Todo depende de 
lo que convengas con tu compa- 
ñero de juegos. 




En la pantalla se dispone de una pa- 
rrilla cuadrada de 10 casillas por 10. 
Fuera de la diagonal hay una bol lita que 
cada jugador desplazará por turno mo- 
viéndola solamente en tres direcciones: 
derecha, diagonal o hacia abajo. 

El juego comienza cuando se exhibe 
el terreno de juego y la posición de sali- 
da. Después aparece jugador 1 y la pre- 
gunta DIRECCION a la que hay que 
contestar tecleando 1, 26 % 

El juego termina cuando uno de los 
jugadores llega a la casilla 9.9. 

Esperamos que te diviertas y que 
una vez que lo hayas practicado lo sufi- 
ciente te veas con ganas de introducir 
las mejoras, que nosotros como mu- 
chos lectores estaremos esperando co- 
nocer. 




10 REM***EL JUEGO DE 9-9*** 
15 REM***MSX— CLUB*** 

20 CLS : INPUT" TECLEE UN NUMERO ENTERO:"; 
30 FOR 1= 1T(| F : Y=RND ( 1 ) : 

35 COLOR 2 
40 X=3*INT(RN 
50 Y = INT <RND ( i 
60 IF 3*Y+5=X 
70 CLS 
30 PRiNT" 
90 FOR 1=0 TO 9 
100 PRINT :PRINT I ;" 
110 NEXT I 
120 H=l 

130 LOCATE X ,2*Y+2 : PRINT" <" 
140 IF X=32 AND Y = 9 THEN PLAY "OSE^ÉND 

150 LOCATE0 ,21: PR I NT " JUGADOR " ;H5WNPUT" -DIRECCION ( 1 ,2 ,G 
160 D=VAL(D*) 

170 ON D GOSUB 1000,2000,3000. 
180 H=2-ABS(H-1) 
190 GOTO 130 

1000 X=X+3 
1010 RETURN 
2000 GOSUB 1000 
3000 Y=Y+1 
3010 RETURN 
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Esta es una propuesta de jue- 


MASTERMIND 


go para agilizar la mente y la ca- 
pacidad deductiva y de cálculo. 
Es muy entretenido y puede 
convertirse en apasionante. 




unque se llame Mastermind en rea- 
d se trata de una variante muy inte- 
resante de este popular juego. Se trata 
de jugar contra el ordenador o contra 
otro jugador, ya que tienes las dos op- 
ciones. El juego -cuyo listado contiene 
las instrucciones completas-, consiste 
en acertar un número y su posición. 
Puedes introducir un mínimo de tres 
^números y tienes un máximo de once 
t^portuniaades para acertar. 

Una vez que se introducen los núme- 
ro sólo tienes que pulsar RETURN. 

Las variantes de este juego, ya sea en 
gráficos, sonido, etc., dependen de ti. 
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S REM \ 

2 REM créditos — 5 

3 REM ■ 



117 




4 SCPEErT^ ,13 , 1 ¡COLOR 15,1 : KE Y OFF :CLS 

5 LOCATE tí ,1 ,0:PRINT STR I NG$ < 37 , ?<H2E ) 

6 LOCATE 0,18:PRINT STRING* (37 ,&H2E) 

7 LOCATE 12,5:PRINT " MASTER-M I ND" 

8 LOCATE 5,10:PRINT "Escrito por : JOSE ESP IRE IRA 

9 FOR W=--l TO 888:NEXT 

10 LOCATE 16,22 :PRINT "M3X " 

11 LOCATE 6,13:PRINT "Piedras Blancas-ASTURI AS" 

12 LOCATE 14,15:PRINT "25-3-85" 

13 FOR W=10 TO 1244:NEXT 

14 IF X THEN 15 ELSE 17 

15 LOCATE 2,20:PRINT "jugador 1=" ;P1 

16 LOCATE 21 ,20:PRINT "jugador 2=";P2:END 

17 LOCATE 8,20:PRINT "—Pulsa una tecla—" 
1 18 TS=INKEY*:IF TS ="" THEN 18 

f9 BOSUB 214 

20 REM 

21 REM preguntas 

22 REM 

23 CLEAR :WIDTH 39:X=1:0N ERROR GOTO 203:GOSUB 

24 PLAY "16cdecdel0cdecdel2cdecdecdecdec" 

25 LOCATE 0,8:LINE INPUT "NECESITAS INSTRUCIONÉS <S/N>^> M si* 

26 IF i THEN 25 
37 IF OR Z**»é M THEN 217 

28 LOCATE 0 f ÓlPRINT "ELIGE LA OPCION QUE DESEES (1/2)" 
'29 LOCATE 5,12:PRINT "1 -CONTRA OTRO JUGADOR" 
30 LOCATE 5 ,14 SPRINT "2-CONTRA EL ORDENADOR" 
3! L0CATE. i 32,8: INPUT OP 

32 IF 0P<1 OR 0P>2 THEN BEEP :GOTO 31 

33 LOCATE 0,8:PRINT "SIGUE ELIGIENDO , SINO TE IMPORTA " 

34 LOCATE 5,12sPRINT "CUANTOS NUMEROS- (3 A 6>— >" 

35 LOCATE 5,14:PRINT "CUANTOS INTENTOS (4 A 11)— V 
^36 LOCATE 32, 12: INPUT CA:P1=0 

37 LOCATE 32, 14: INPUT IN :P2=0 :CH=0 

38 IF CAO OR CA>6 THEN BEEP: GOTO 41 

39 IF IN<4 OR IN>11 THEN BEEPsGOTO 41 

40 BOTO 43 

^ rn™ 1 ^ 32 ' 12:PRINT STR I NG$ ( 5 , ?<H20 ) : LOCATE 32,14:PRINT STRING* (5 ,&H20) 
■ 2 oUTO 36 

43 LOCATE 9,18:PRINT "NUMEROS" ;CA ;" INTENTOS" : IN 

44 LOCATE 18,18:PRINT CHR*(42) 

45 GOSUB 207 

46 IF Q*¿="n" OR Q*="N" THEN 41 

47 ON OP GOTO 48,126 

48 GOSUB 117 

49 PLAY "13fdbe-fa5dgbad" 

50 LOCATE 1,8:LINE INPUT "NOMBRE JUGADOR 1 — >";Ji* 

51 IF Jli="" THEN 50 

52 LOCATE 1,10:LINE INPUT "NOMBRE JUGADOR 2— >";J2* 

53 IF J2*="" THEN 52 

54 GOSUB 117 

55 IF 0P=1 AND CH>5 THEN SWAP J1*,J2* 
fyb FOR W=l TO 9 :PLAY " 1 20b " :NEXT 

57 LOCATE 1,10:PRINT "SOLO EL JUGADOR 1 > ";J1* 

-50 LOCATE 1,14:LINE INPUT" INTRODUCE EL NUMERO > » ; N* 

59 L=LEN(N$> :IF LOCA THEN BEEP :GOTO 60 ELSE 62 

62 R=l : GOSUB 197 

63 LOCATE 6,18:PRINT "NUMERO INTRODUCIDO: " ;Ní 

64 GOSUB 207 

65 IF Q$="n" OR Q*="N" THEN 66 ELSE 67 

66 LOCATE 21,14:PRINT STRINGí ( 10 ,&H20) :GOTO 58 

67 GOSUB 117 

68 FOR W=l TO 9:PLAY "120a":NEXT 
6.9 IF 0P=2 THEN J2*="TU" 



22 



Programas , 



70 LOCATE l f 8:PRINT "SOLO EL JUGADOR 2 > " ;J2* 

7 1 LOCATE 1 2 , 1 2 : PR I NT " ! ADELANTE ! " 

72 LOCATE 14,15:PRINT "SUERTE" 

73 IF 0P=2 AND P1>P2 THEN LOCATE 1 ,20 :PRI NT "RECUERDA QUE VAS PERDIENDO POR" 
A" ;P2 

74 FOR W=10 TO 1333-.NEXT 
,7-: REM 

.7n RFM presentación pantalla 



:P1 ; 



^22- REW- 



78 60SJJJ3- 1 1 7 : S=8 : C=i2> : I T= I N 

J75H5e1^=iZi TO 38:L0CATE W f 5 :PRINT CHR* ( 1 ) ;CHRí (&H57 ) 
^J-OCATE W,7:PRINT CHR* ( 1 > ;CHR* (&H57) 
"5TTQCATF W,19:PRINT CHR$ < 1 ) ;CHR* V&H57) 
-STTüJCAIE W,2ií:PRINT CHR* ( 1 ) ;CHR$ (?<H57> :NEXT 
"|T_FÜB_JW^8 TO 18:L0CATE 19,W:PRINT CHR* ( 1 ) ;CHR$ <&H5¿>) 
$£_LQ££gE 18,W:PRINT CHR* ( 1 ) jCHR* ( S<H56) 
B^JJDJIAJIE 10,W:PRINT CHR*(?<HFA> 
* §¿LÜCAT E 3iZ>,W:PRINT CHR4M?<HFA) :NEXT 
87 LOCATE 12 ,6 :PR1NT^M - H" 
98^T-5CAXE 32,6:PRINT "M - H" 
J0 5 L OC A T E 1,2:PRINT "JUG.1 = "-,P1 
.ggjnraTF 28^jl^IjsrTJvJUG.2=" ;P2 
91REF1 " 



control programa 



94 FOR jj- jg TO 550:NEXT:LOCATE 9,21:PLAY " 120gf edc" iLINE INPUt " INTRODUCE 
ERO " ;A* 

95 LOCA TE 1,21:PRINT STRING* (38 ,?<H20> 
~ 9fa IF 7y i = "" THEN .94 

97 LÜ=L EN (Af):IF LO<__¿CA THEN BEEP:GOTO 94 
jb LOCA TE C+4,S:PRINT A* 
~99 LOCATE C,S:PRINT IT 

l~gii¿ IK-1 T>9 THEN 102 

LOCATE C+2,S:PRINT CHRf(45) 




JJ?2__EDE_J = 1 10 t>:A(I)=0:NEXT:M=0:H=0 
103 £ QR_ 1 = 1 TO CA 

T04^¡FVAL mité <A* , I ,1) )=VAL(MID* <N* ,1 ,1) ) THEN A ( I ) = VAL ^ M I D* < N* , 1 , 1) ) :M=Hr 

105 NEj CT I 
Ji2_i_-XF— M=CA THEN 152 
_U2LZ - E TQk .1 = 1 TO CA:FOR W=l TO CA 

'AL ( M I Di ( Aí , I , 1 ; ) = A ( W ) THEN 111 
VAL (M ID* (A*,I.,1) >=VAL(MID$(N$,W,1) ) THEN H=H+1 :GOSUD 147 

i_iei_N£Xr W 

1_J0_jNEXT I :S=S+2:IT=IT-1 :IF S=20 THEN SWAP C,S:S=8 
1_12__LF_ IT=-1 THEN GOTO 157 
1 13_M*F"" :GOTO 94 



_J_L5-REtt — 
•i- 16 RE M 



cabecera 



117 CLS:FOR W=0 TO 40:LOCATE W,tt:PRINT CHRí ( 1 ) ;CHR* (&H57) :NEXT 

118 FOR.iW=40 TO 0 STEP-1 : LOCATE W,1:PRINT CHRí ( 1 ) ;CHRí (&H57 1 :NEXT 

119 LOCATE 13,2:PRINT "MASTER-M1 ND" 

120FOR W=0 TO 40 :LOCATE W,3:PRINT CHR-Í ( 1 ) ; CHRí ( S/.H57 ) : NE X 1 
£«TfOR W=40 TO 0 STEP-1 :LOCATE W,4:PRIN'I CHRí U ) ;CHRí (S/.H57) :NEXT 

122 RETURN ' 

"123 REM ' 

124 REM numero al arar 

126 LOCATE 0 t 20:PRINT STRINGí ( 39 ,?<H20> 

127 LOCATE t ,21 aPRINT "ESPERA UN MOMENTO , ESTOY PENSANDO , AHORA 

128 LOCATE 3,22:PRINT STR I NGí ( 35 , &H20 ) 

129 R=0 

130 IF CA=3 THEN CN=1000 
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131 IF CA=4 THEN CN= 10000 

132 IF CA=5 THEN CN=100000' 

133 IF CA=6 THEN CN= 1000000* 

134 A=INT (RND(-TIME) *CN) 

135 M*=STR*(A) :N$=MID*(M$,2,CA+2) 

136 GOSUB 197- 

137 GOTO 67 



13g^jGn*iUB 117 




muertos 



.M>CA THEN M=CA 
143__LOCATE C+11,S:PRINT M:PLAY " 1 10b " rRETURN 
^T44 REM 

~~tt¡ L _£Etl^ heridos — 

T7f6_RE£U 

-íTTTf h>CA THEN H=CA 



_148_kOCATE C+15,S:PRINT H : PLAY " 1 5b " rRETURN 

l¿!fcUfiEJsU. acierto 

T5¡ REM 

152_LÜJCATE 2,21:PRINT "BIEN , ACERTASTE ESE ERA: 
ljZTjZLM- "122gfedcab" ¡GOTO 161 - 

fallo — 




1J59_BEM -— 
160JBEM 

-TüpT 



Z,21 :PRINT _^PERILI 



opciones 




:PRINT CHR*<32> :NEXT 
:GOTÜ 169 

167 



T~FÜR W=26+CA TO 38 :LÜCATE W,21) 
io2 IF OF-2 AND M<CA THEN P1=P1+1: 

163 IF ÜP=2 AND M=CA THEN 16<b 

164 IF X/2-INT(X/2)=0 THEN 165"ELSE 

165 IF M<CA THEN P2=P2-1 :GÜTÜ 169 

166 P2=P2+1 :GÜTÜ 169 
16? IF M-:.CA THEN P1=P1-1 :GOTQ 169 

u_¿6 S pi=pi+i 

^69 IF Pl .1 THEN P1=0 

i 70 IF P2 :. 1 THEN P2=0 

171 LOCATE 7,2:PRINT Pl : LOCATE 34,2:PRINT P2 

172 FOR W« 10 TO 3333:NEXT 

173 CH=10:X=X+1 

174 LOCATE' 1 ,21 :PRINT STR1NGÍ (36 ,?,H20) 

175 PLAY "115dfadfadf a" 

176 LOCATE 0,20:PRINT "ELIGE LA OPOCION QUE MAS DESEES : ( 1 -2-3) " 
\ll l~2^I E 4 ' 21spRINT "-l-":LOCATE 16,21 :PRINT "-2-" :LOCATE 27,21 :PR1NT 

178 LOCATE 3,22:PRINT "SEGUIR#VOLVER AL MENUttTERMINAR" ; 

179 LINE INPUT R* 

180 IF VAL<R*)<1 OR VAL(R*>>3 THEN 
_^^ÜN>A4-4j ^ GOTO 1 92 J J L 93 1 185^ 

183 REM despedida 

184 REM 

135 GOSUB 117:L0CATE 10,10:PRINT STRING* ( 16 ,?<H2 
186 LOCATE 10,12:PRINT "DE ACUERDO , ADIOS" 
137 LOCATE 10,J4:PRINT STRING* ( 16 ,&H2D) : X=5 

188 PLAY "llac^- 

189 FOR W=10 TO 2888:NEXT 

190 GOSUB 214 

191 GOTO 4 

1*2 TF 0P=2 THEN 126 EL SE 54 
192-6QSUEL. 
194 REM 



179 



2D) 



j 



195 REM 

196 REM 

197 FOR 1=1 





filtro — 

TO CA+1 :FÜR W=l TO CA 
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198 IF I«W THEN 200 

199 IF MID*(N$,i ,1)=MID* (NS ,W,1) OR MID* (N* , 1 ) ="0" THEN 202 

200 NEXT W,I 

2S1 IF R«0 THEN 137 ELSE 63 

202 IF R=l THEN 66 ELSE 134 

203 R UN 193 

204 T7 EH ' " 



205 REM pregunta 

206 REM 

207 LOCATE 0,16:PRINT STRINGí (39 , S/.H2D) 

208 LOCATE 0,19:PRINT STR I NG$ ( 39 , ?<H2D ) 

209 LOCATE 6,2lsLlNE INPUT "ESTAS DE ACUERDO? (S/N > - J " S Q* 

210 RETURN 

21 i RÉPI 



■ 



212 REM — 
2-13 REM_ 



subida pantalla — 



214 PLAY "1 16cde-fgab" 

215 FOR W=22 TO 40 iPRINT :NEXT 

216 RETURN 



instruciones — 



217 REM 

218 REM - 

219 REM 

220 GOSUB 117 

221 PRIN1 :PRINT"SE TRWl A DE ADIVINAR UN NUMERU,SI ADIVINAS EL NUMERO Y EL LUGAR 
CORRECTO ES UN MUERTO, SI ACIERTAS EL NUMERO PERO NO EL LUGAR ES UN HERIDO. EJEMP 
LO: EL NUMERO A ACERTAR ES EL <1234>" 

222 PR I NT : PR I NT : PR I NT " Y TU INTRODUCES EL <2136> ESTO TE DARA : 1 -MUERTO (EL 3), Y 2 
HERIDOS (1 Y 2) .EL 6 AL NO ESTAR NO CUENTA .PUEDES JUGAR CON OTRA PERSONA O CO "EL 
ORDENADOR" 

223 LOCATE 10,21 :PRINT "PULSA UNA TECLA" 

224 Q*=INKEY* : IF □*=" " THEN 224 

225 GOSUB 117 

226 PRINT :PRINT :PRINT"PUEDES DETERMINAR LA CANTIDAD DE NUMEROS A «DIVINAR Y LÚS 
INTENTOS PARA ACERTARLO. SI JUEGAS CONTRA OTRA PERSONA LO HAREIS POR TURNOS" 

227 PRINT : PRINT "AL INTRODUCIR LOS NUMEROS NO REPITAS EL MISMO DOS VECES NI PONG 
AS NINGUN 0.EJEMPLO:EL 1148 NO VALE PUES SE REPITE EL 1 .EL 4306 TAMPOCO VALE PUL 

HAY UN 0" 

228 PRINT ¡PRINT "PARA INTRODUCIR LOS DATOS TECLEALOS Y 



N> 

(229 LOCATE 5,20:PRINT "MEMORIA OCUPADA" ;28B15-FRE (0) ; 

230 LOCATE 10,22:PRINT "PULSA UNA TECLA" 

231 Of=INKEY*:IF THEN 231 

232 GOSUB 117:GÜT0 2B 



DESPUES PULSA <RETUR 



455 1 450 -m 



6 
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CARRERAS 
DE CABALLOS 



Estamos en el Hipódromo 
MSX y en él varios jugadores 
pueden apostar por el caballo 
más rápido. Una carrera de ca- 
ballos trepidante que te hará 
saltar en la tribum 



EM***CRRRERA de caballos*** 
2iZi COS^INPUT" TECLEE UN NUMERO ENTERO:" ;F 
3tf FOR^Sl 1T0 F : Y=RND ( 1 ) :NEXT 

40 DATA0,2\3,63,125,254,110,170:A*="" :FOR J= 1T0 8:READ A :£ 
50 SCREEN 1 , TSCOLOR 1,15,2: KE Y OFF : CLS 
60 INPUT-'NUMERTS^DE CABALLOS:" ;N:IF N>9 THEN 50 

64 SCREEN2:LINE(3\,20;-(35,190) ,1 , BF : L I NE ( 0 , 0 ) - ( 200 , 2tí 

65 FOR C=l TO 

66 A=INT (RND( 1 ) *200)^ 

67 B=INT (RND ( 1 ) *20) 

68 C=RND(1)*5 

69 CíRCLE(A,B> ,C,1 , , ,1 .3:Fto(T 

70 FOR 1- 1T0 N:SPRITE$U)=flV:NEXT 
80 A ="" :P-0:A=0:T=1 :K=0 
90 J=T 

100 A*=Aí+"0" :I=J 
110 GOTO 150 
120 FOR 1= 1T0 N 

130 IF mm (Aí ,1 ,1)="K" THEN 180 

140 B4=CHR*<ASC<MID* (Ai,l ,1) ) j/fiiT (RND ( 1 ) 1 ) ) 
150 MID* (Ai , I , 1 ) =B* 
160 IF B*>="K" THEN GOSUB JÉ50 

170 PUT SPRITE I , (8* < ASC/6T D$ < Ai , I ,1) )-46) , 16ÍV-20) ,1+4,1 
180 PLAY"L64N80" :FOR D/MTO 600:NEXT 

190 IF K=0 THEN J=J+/flF 3K*N THEN 100 ELSEK=1:G0T 
200 NEX1 I 
210 P=P+T 
220 T=0 
230 IF A < N 
240 PLAY"Ci 
2 r ;"-0 MID*< 
260 LOCa^E 
27® T^:PLAY"CCC" 
280 /£=A+T 
290 RETURN 



=AÍ+CHR* (A; :NEXT 



,120 



TH^N 120 

f :ENI"i 
,1 ,1 ) ="K" 
0,2*I+3:PRINT P- 



Estamos ante un programa que se 
basa en los números aleatorios y por lo 
tanto el resultado de cada carrera es 
casi puro azar. Para jugar sólo tienes 
que introducir el número de caballos 
q ue queras para la carrera entre 1 y 9 y 
$ seguidamente hacer las apuestas por el 

ganador. 

El ordenador hace avanzar los caba- 
lé líos uno a uno y la clasificación se anun- 
cia a medida que llegan. 

Como veis ésta es la base para un 
% Sv. programa mucho más amplio y com- 
pleto. Si crees que puedes configurar 
ese programa, mándalo para que todos 
lo disfrutemos. 



LA RULETA 




¡Lista este programa y descu- 
brirás el azaroso mundo del ca- 
sino! ¡En tu propia casa, en la 
pantalla de tu televisor tendrás 
una ruleta y apostar! 



Este es un juego ideal para los que 

Sustan divertirse con el azar. La panta- 
a reproduce el juego de la ruleta con 
casillas numeradas del 1 al 36, más tres 
casillas suplementarias que represen- 
tan a Rojos (R), Neeros (N) y Blanca. 

Una vez que has listado el programa 
--al que puedes añadirles las variantes 
que quieras-, introduces un número 
cualquiera y la bola se desplaza por lo 
menos una vez por cada casilla y se de- 
tiene en la segunda vuelta. 

Lo interesante de este juego es que te 
puedes reunir con tus amigos y apostar 
o al menos tratar de adivinar el número 
que saldrá en cada ocasión. 




10 REM***RULETA*** 

15 REM**MSX-CLUB** 
2* CLSzINPUT 
30 FOR 1 = 1 TD 
40 COLORI ,15: KE Y 
50 FOR K= 1T0 4 
60 FOR 1= 1T0 9 
70 S=I + I >^ 
8!? PR1NT TAB'.4*I-2) 
913 NEXT I 

100 PR I NT : PR I NT : PR I NT 

110 NEXT K 

120 LOCATE0 ,2 :PRINT"R" ¡¡LOCATE 
130 FOR K= 1T0 4 
140 FOR 1= 1T0 10 

150. 1F 1 = 10 AND K<4 THEN LOCATE0 
160 IF K*I<>40 THEN L0CATE4*I-1 
170 X = X-1 :PLAY"L32A" :PRINT 
180 FOR J= 1TO 35 :NEXT J 
190 IF X<>1 THEN LOCATE POS (0) -1 ,CSRLÍ 
200 NEXT I 
210 NEXT K 4 
220 X=INT(RND(1) *38) 
230 GOTO 120 

240 PLAY "CEG" :LOCATE0 ,20 :PRINT"OTRA PARTI 

250 IF Rí="N" THEN END 
260 GOTO 40 



+ (3-1 AND |ó»3) «"&+!? Al\JDK = 4) ; 



0O" : LOCATE0 , 1 0 : PR I NT " N " 




ELSE BOTO 240 



R*»INPUT* ( 1 ) :PRINT R* 
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Un singular gusanito empieza 
a elevarse y tu misión es conse- 
guir que el Comegusani tos se lo 
zampe totalmente. Es un juego 
de gran habilidad. 



Una vez que has listado el programa, 
el cual no presenta mayores dificulta- 
des, inicias el juego dando la orden 
RUN. Casi inmediatamente aparece en 
pantalla un gusanito muy vaporoso em- 
pieza a elevarse, mientras en el otro ex- 
tremo de la pantalla se halla del Come- 
gusanitos. Con las teclas del cursor tie- 
nes que conducirlo hasta quedar por 
encima del gusanito para que inicie su 
festín. Pero esto no es tan fácil como 
parece, porque el gusanito se mueve de 
un lado a otro y para que el Comegusa- 
nitos pueda tragárselo tiene que estar 
siempre sobre él Al llegar a la parte in- 
ferior de la pantalla antes de que el gu- 
sanito llegue a la parte superior, el (Üo- 
megusanitos gana y en tu TV aparece 
¡Bravo! o ¡Perdido!. 

Como será costumbre en los listados 
que demos, tú podráas hacer variantes 
ampliando o mejorando lo publi< 
Para ello crearemos una 




10 REM* f ¿SUSANO* jt * 

20 CLSzINPUT" TECLEE UN NUMERO ENTERO: 
30 FOR I = 1T0 F:Y=RND(1) :NEXT 
40 SCREEN0 :WIDTH40 
50 R*="7." 
o© S=tt:X= 
70 U=0:V= 
80 COLOR 13,1^ 
90 LOCATEY ,X :PRItv 
100 Y = Y- (RND ( 1 ) < .5 
1 10 T=l 
120 X=X-T 

130 IF X=0 THEN 260 
140 LOCATE V,U:PRI NT R# 

150 IF TO0 THEN FOR I=1TO400 :A*=INfc< 

J60 IF TO0 THEN NEXT I 
17¿1 LOCATE V,U SPRINT" " 
180 U=U-<A*=CHRí^3l) AND T=l 
190 U=U- T=0) 
200 V=V-<A*=CHR*<28> 
210 C=VPEEK <40*U+V) 
220 IF C:;>42 THEN 90 
230 T=0:S=S+1 
240 IF U<22 THEN 

250 IF T=0 THEN F^flNT" !' BRAVO !'" :PLAY "CEG" :GOTO 270 
260 PRINT"SE ACABO EL JUEGO" :PLAY "CCC" 
270 PR I NT : PR I NT " RECOREi :";S 



— 



Programas , 



CARRERA 
DE COCHES 



La pantalla de tu ordenador 
MSX puede convertirse en un 
difícil circuito de Fórmula 1. 
Coches lanzados a gran veloci- 
dad compiten contigo en una 
gran carrera. 




«Carrera de coches» es una variante 
mejorada de «Indianápolis» publicado 
en la revista SUPER JUEGOS EXTRA 
MSX. Aquí tienes un tiempo máximo 
de cuatro minutos de carrera en el que 
tienes que conseguir la mayor veloci- 
dad posible. Al final el ordenador te 
dará en pantalla la velocidad promedio 
que has obtenido y el número de cho- 
ques que has provocado. 

Los movimientos de izquierda a de- 
recha y viceversa se hacen con los cur- 
sores horizontales. La tecla cursora su- 
perior te sirve para aumentar la veloci- 
dad y la inferior para reducirla. 

Bueno campeón, ponte el casco y el 
circuito es tuyo. ¡Ah, si consigues me- 
jorar el listado, manda las variantes así 
corremos nosotros y nuestros lectores. 



V 

\ 



9012 
905 
910 
920 
930 




5 W=24«Zi :TIME=i3 :R=5 :Q=iZ» :G=0 :P=0 :ME=0 :ES=iZi :CH=0 

6 X2=126:Y2=90:V2=0:C2=3 

7 X 1 = 104 í^U=60:Vl=0:Cl=2 
S X = 104:Y=m0:V=0 

9 X3=104 :Y3^0:V3=0:C3=4 

10 X4=126:Y4=%50:V4=0:C4=5 
100 REM #** B ^lt- E PRINCIPAL **# 
130 S=INT <7500lLy+l > ) :IF S>255THEN S=255 
140 SOUND 0,S:SO\nD 1,1 
150 SOUND 2,S:S0ú\p 3,2 
160 SOUND 4,0: 
170 SOUND 6,15:S0UNm 7 ,56 
180 SOUND 8,15:S0UND\?,15:S0UND 10,15 
20Ü PUT SPRITE l,(X,Y\l5,0 
210 PUT SPRITE 2 , (XI ,Y 
220 PUT SPRITE 3,(X2,Y 
230 PUT SPRITE 4,(X3,Y3)^ 
240 PUT SPRITE 5, (X4,Y4) , 
380 Q=Q+1 

390 LINE (23 ,5) - (65 ,20) ,7 ,BF 
400 LINE(23,65)-(65,80) ,8,BF 
410 LINE(23,125)-(65,140) ,11 ,Bl 
420 LINE(183,5)-(225,20) ,14,BF 
430 LINE (183, 65) -(225, 80) ,3,BF 
440 LINE (183, 125) -(225, 140) ,10,BF' 
450 PSET(180,10) ,12:PRINT#1 ,USIN6 
460 P=P+V\10 

470 PSET (20sl | Z | ) ,12:PRINT#1 ,USING 
480 ME= (ME* (Q-l ) +V) /Q 
490 PSET( 180,70) ,12:PRINT#1 ,US 
500 T=lg-TIME\50 

510 PSET (20 ,70) , 12 :PRINT#1 ,USI 
520 ES=ME« .3* <TIME\50) 
530 PSET(180,130) ,12:PRINT#1 
540 PSET(20,130) ,12:PRINT#1 
600 IF T<=0 THEN 5000 
700 IF P>2500 AND G=0 THEN 
710 IF P>2500 THEN G=l 
720 IF P>4000 AND G=l THEI 
730 IF P>4000 THEN G=2 
740 IF P>5500 AND G=2 T 
750 IF p;5500 THEN G=3 
760 IF pr/000 AND G=3 
770 IF P.:7000 THEN G= 
800 AC=25+V\20:FR=V\1 
F=STICK (D) :F=F+1 
ON F GOTO 1500,9 
V+AC:GOTO 15 

' GOTO 



X=X+1+M:V=V+AC 
X=X+1+M:G0T0 15 
940 X=X+1+M:V=V-FR 
950 V=V-FR:GOTO l'Si 
960 X=X-1-M:V=V-FR 
970 X=X-1-M:G0T0 1 
980 X-X-l-n :V=V+AC 
1500 Y=180-V\3:Y1=Y1 
1510 B1=RND(1) «20+10: 
1520 V1=V1+B1 :V2=V2+B2 
1620 IF Vl>=330 THEN VI =320 
1630 IF V2>=270 THEN V2=250 
1632 IF V3>=320 THEN V3=31 
1634 IF V4>=260 THEN V4-240 
1636 IF V>320 AND V<390 THEN 
1640 IF V>=390 THEN V=385 
1650 IF V<0 THEN V=0 



=V-B5 



1 1 



Programas 



1660 A5-INT(RND(1)*12)+2:A6=INT<RND(1)*12)+2:A7=INT(RND(1)*12)+2:A8=INTJRN[K 
2 +2 

i 67? IF Y 1.: =1912 OR Yl <=-15 THEN C1=A5 
1672 IF Y2>=190 OR Y2<=-15 THEN C2=A6 
1674 IF Y3>=19(Zi OR Y3<=-15 THEN C3=A7 
1676 IF Y4>=190 OR Y4<=-15 THEN C4=A8 
1630 IF Yl>=190 THEN Yl=-16 
1682 IF Y2>=190 THEN Y2=-16 
1684 IF Y3>=r9i3 THEN Y3=-16 
1686 IF Y4>=190 THEN Y4=-16 
1700 IF Yl<=-17 THEN Yl=191 
1702 IF Y2<=-17 THEN Y2=191 
1704 IF Y3<=-17 THEN Y3=191 
1706 IF Y4<=-17 THEN Y4=191 
1800 SPRITE ON 
1810 IF Y3-YK50 THEN V3=V1 
1820 IF Y3-YK50 AND Y3-Y1>0 AND Y3>-1 
1830 IF Yl-Y3<50 THEN V1=V3 
1840 IF Yl-Y3<50 AND Yl-Y3>0 AND Yl>-16 
1850 IF Y4-Y2<50 THEN V4=V2 

1860 IF Y4-Y2<35 AND Y4-Y2>0 AND Y2>-16 ANI 
1870 IF Y2-Y4<50 THEN V2=V4 

1880 IF Y2-Y4<35 AND Y2-Y4>0 AND Y4>-16 AND 
1900 IF X<99 OR X>131 THEN GOSUB 2000 ELSE Gl 
?000 REM ** EXPLOSION ## 
1*010 SPRITE OFF 
2020 CH--=CH+1 

2030 IF CH=1 THEN P=P-100 
2040 IF CH=2 THEN P=P-200 
2050 IF CH=3 THEN P=P-300 
2060 IF CH=4 THEN P=P-400 
2070 IF CH>=5 THEN P=P-500 
2100 PUT SPRITE 0,(X,Y),10,1 
2110 SOUND 0,0:SOUND 1,5- 
2120 SOUND 2,0:SOUND 3,13 
2130 SOUND 4,255:S0UND 5,15 
2140 SOUND 6,30: SOUND 7,0 
2150 SOUND 8,16:S0UND 9,16:S0UND 
2160 SOUND 11,0: SOUND 12, 5: SOUND 
2170 FOR Z=l TO 45:NEXT Z 
2180 SOUND 
2190 FOR Z=l 

2200 PUT SPRITE 1 , ( X , Y ) ,8 ,0 :PJÚT SPRITE 0, IX, Y), 10,1 
222tf PUT SPRITE 0 , ( X ,209) :PUT SPRITE 1,(X,209) 
2240 NEXT Z / 
2250 FOR A=l TO 1000: NEXT AíRETURN 6 
3000 REM »* PANTALLA GRAFICA ** 

3020 COLORIS ,1,7 :SCREEN 2 :Q?LEAR300 :PLAY "T255S8M8400V15" 
3025 AL=RND(1) *70:FOR A=0 10 AL :AR=RND ( 1 ) :NEXT A 
3030 Aí= " S8C 1 4U4NR6U4R6D2ND6S 1 2C7BR4D8R6U8S 1 6C8BR3BD2R3ND8R3S: 
8S24C 1 3BR3BD2NR6D4R6D4L6 

3040 DRAW"BM50 ,55XA$ ;BM49 ,54XA$ ;BM48 ,53XA$ ; " 
3050 A*= " M+4 , -4M-2 , +6M-2 , -5M+5V2M-5 , + 1 
3060 FOR A=l TO 5 
3070 FOR B=0 TO A^3+5 
3080 X1=INT(RND(1) *245) 
3090 X2=INT(RND(1) *182) 
3100 X3=ll .125-A*2 

3110 DRAW"S=X3;BM=X1 ; ,=X2 ¡C15XA* ; " 
3120 NEXT B:NEXT A 

3 1 30 B*= " S4C1 3U 1 0R5D5NL5D5BR5C l 0NU 1 0R5BR 1 0C4L5U 1 0R5D 1 0BR5C8U 1 0M*5 , 
D5R5D5L5BE 1 0C5D 1 0R5U 1 0L5 " 

3140 DRAWBM20 , 180XB* ;BM190 ,20XB* ;BM19 , 179XB* ;BM189 , 19XB-T ; " 
3 1 50 A*= " S4C2R2BR2BD 1 C4L6BL2BD 1 C6R2BR 1 R4BR 1 R2BD 1 C 1 4L 1 0BD 1 BR2C 1 0R6 " 



12,56:S0UND 13,0 
=1 TO 10 / 

: 'RITE 1 , (X ,Y; ,8,0:P)ÚT 




IG10&R3BD2NR6DSR6L 1 



■10UÍ0BR5C3NF.5 



1 1 



3168 DRAWBM20 ,3XA* ;BM140 ,45XA* ;BM45 , 140XA* ;BM240 ,60XA* ;BM230 , 1 B0X AT ;BM125 ,86XAí 
;BM150,30XA*;" 

317ÜÍ A=3. 141592* 

313(? CXRCLE (30 ,45) ,20 , 15 , A* 1 /2 ,A*3/2 
3182 CIRCLE (40,45) ,23,15 , A*5/8 , A* 1 1 /8 
3184 PAINT(16,45) ,15 

3190 FOR B=0 TO 100 :A=INT (RND ( 1 ) *24+l > :PLAY "N=A ; " :NEXT B 
3200 COLOR 1 ,14,7:SCREEN 1 :WIDTH 28:CLS 
3205 FOR A=l TO 10 
3210 KEY A,"" 
3220 NEXT A 

3230 LOCATE 6 , 1 :PRINT" **»* AUTOS ♦*♦♦" 

3240 LOCATE 1 ,3 :PRINT"Dentro del listado de AUTOSencontraras ejemplos con MSX 
-BASIC sobre: 

3250 LOCATE 2 ,7 SPRINT"- MENUS" 
3260 LOCATE 2,8:PRINT"- PANTALLAS:" 
3270 LOCATE 14 ,9 :PRINT "de texto" 
3280 LOCATE 14 , 10 :PRINT"gra-f icas" 
3290 LOCATE 14 , 1 1 :PRINT"mixtas" 
3300 LOCATE 2,12:PRINT"- CEPOS" 
3310 LOCATE 2 , 13 :PRIN T"- CONTADORES:" 
3320 LOCATE 15 , 14 :PRINT" ind i viduales" 
3330 LOCATE 15 , 15 :PRINT"depend ientes" 
3340 LOCATE 2,16:PRINT"- SPRITES" 
3350 LOCATE 2 , 17 :PRINT"- macroDRAW" 
3360 LOCATE 2,18:PRINT"- números ALEATORIOS" 
3380 LOCATE 1 ,20 :PRINT"para continuar pulsar « S *" 
3390 C*=INKEY$ :A=INT(RND(1 ) «84+12) :PLAY"N=A;" :IF Cí==""THEN 3390 
3400 IF C*="S" OR C*="s" THEN ELSE GOTO 3390 
3510 CLS: LOCATE 6,l:PRINT"Jf EXPLICACION #" 

3530 LOCATE i ,4 SPRINT" cbn los mandos del cursor podras:" 
3540 LOCATE 11,6 :PRINT"ACELERAR" 
3550 LOCATE 4 ,8 :PRINT" I Z QUIERO A DERECHA" 
3560 LOCATE 11 ,10: PR I NT " FRENAR " 
3570 LOCATE 7 , 13 :PRINT"* OPCIONES ♦" 
3580 LOCATE 7 , 14 :FRINT" »»»»♦♦♦♦♦♦♦♦" 
3590 LOCATE 1,16:PRINT"| 1 I-control por TECLADO" 
3600 LOCATE 1,18:PRINT"| 2 |-control por JOYSTICK" 
3610 LOCATE 1 ,20 :PRINT"pulsa 1 ó 2 " 

3620 C*=INKEY*:A=INT(RND<1)*64+12) :PLAY "N=A ; " : IF C*=""THEN 3620 
3630 IF C$="1"THEN D=0 
3640 IF C$="2"THEN D=l 

3650 IF C*="1"0RC$="2"THEN ELSE GOTO 3620 
:3670 CLS:LOCATE 1 ,5 :PRINT "I ec lea tu nombre " 

3680 LOCATE l,9:PRINT"y pulsa RETURN" 
:3690 LOCATE 2,,20 : INPUT" NOMBRE "jN* 
3700 CLS:LOCATE 6,1:PRINT"# REFLEJOS ♦" 
3710 LOCATE 6 ,2 zPRINT" »»»»»»»»»»♦»" 
3720 LOCATE 2,4:PRINT"Tu coche sera el BLANCO" 
3730 LOCATE 2 ,20 :PRINT"Cal it icate de 0 a 9" 
3740 LOCATE 2,7:PRINT"La velocidad de los coches dep 
ees" M 
3750 LOCATE 0 , 15 :PRINT"pulsa -1-2-3-4-5-6-7-8-9-" 
3760 L*=INKEY* :IF L*=" "THEN 3760 

3770 IF L*="l» OR L *="2" OR L*="3" OR L*="4" OR L*="5" OR L*="6" ÜR L*="7" OR L* 
="8" OR L *="9" OR LÍ="0"THENELSE3760 L * 
3780 L=40\(VAL<L*)+1) 

4000 COLOR 14,1 ,7:SCREEN 2 ,2 ,0 :CLOSE :CLS :SPRITE ON 
4010 ON SPRITE GOSUB 2000 
4020 DR AW " BM103 , 0C8D 1 9 1 BM 1 43 , 0D 1 9 1 " 
4025 DR AW " BM99 , 0C 1 0D 1 9 1 BM 1 47 , 0D 1 9 1 " 

4200 A 1 *=CHR* ( ?<H8 ) +CHRÍ ( S<H 1 F ) +CHR* ( &H3 ) +CHR$ (&H1B) +CHR$ (&H1F ) +CHR* ( 
3 ) +CHR$ ( &H7 ) 

^iru^ÍZucf <?<H7) +CHR * <*H3)+CHR*<S<H3B>+CHR* ( &H3F ) +CHRÍ ( &.H3F ) fGHR*t&H3ü; i CHR* <&H 
JJ -t-CHR» (&HF) 

turas SSSKíSt 11 ^ +CHR * (?<HF8> * CHR * <««HC«) + CHR* (&HD8) +CHR* <Í«HF8) +CHR* (&HDG) +C-" ? ( 
«nUOí +LMKf («Hc.0) 




ra del numero que 



pul 



r (?<H1B) +LHRÍ (l'H 



Programas 



423CI A4* =CHR* ( &HE0 ) fCHR* < &HC0 ) +CHR* ( tcHDC > +CHR* ( &HFC ) +CHR$ : ( ?<HFC ) +CHR-I' ( ?<HDC ) +CHR* ( 
&HC0)+CHR*(&HF0) 

4240 SPRITE* (0) =A1*+A2*+A3$+A4* 

4300 B 1 *=CHR* ( &HCF ) +CHR* ( &HE0 ) +CHR* ( &H3E ) +CHR* ( &H7 ) +CHR* ( &H77 ) +CHR$ ( 2<H7F ) +CHR$ < & 
HF ) +CHRÍ ( &HDF ) 

43 1 0 B2*=CHR$ ( &HDF ) +CHR* ( &HF ) +CHR* ( &H7F ) +CHRÍ ( &H77 ) +CHR* ( &H7 ) +CHR* < &H3E ) +CHR$ ( ?.H 
E0)+CHR*(&HCF) 

4320 B3*=CHR* ( ?<HF3 ) +CHR* < ?<H7 ) +CHR* ( &H7C ) +CHR* ( ?<HE0 ) +CHR$ ( S/.HEE ) +CHR-f ( ?<HEE ) +CHRÍ ( & 
HH»0) +CHRÍ (&HFB) 

4330 B4*=CHR* (&HFB) +CHR* (&HF0) +CHR* (&HFE) +CHR$ (&HEE) +CHR* (8<HE0) +CHR* ( ?<H7C ) +CHR* ( 
S<H7)-»-CHR*(8cHF3) 

4340 SPRITE*(1)=B1$+B2*+B3$+B4* 

4590 REM abrir pantalla mixta 
4600 DPEN"GRP:"AS#1 

4700 PSET (20 ,25) , 12 :PRINT#1 , "PUNTOS" 
4710 PSÉT (20,85) ,12:PRINT#1 , "TIEMPO" 
4720 PSET(20,145) , 1 2 : PR I NT# 1 , " CHOQUES " 
4730 PSET (180,25) ,12:PRINT#1 ,"KM/H" 
4740 PSET (180, 85) , 12 :PRINT#1 , "V_MEDIA" 
4750 PSET (180, 145) , 12 :PRINT#1 , "METROS" 
4800 BOTO 4 

5000 REM ** FINAL PARTIDA ** 

5005 SPRITE OFF:CLS:SCREEN 0 :S0UND8 ,0 :S0UND9 ,0 :SOUND10 ,0 
5010 H1=W\60:H2=W-H1*60 

5020 PRINT" Hola ";SPC(9);N* 

5030 LOCATE 1 ,4 :PRINT"Hic iste " ;P ; "puntos" 

5040 L0CATE1 ,6 :PRINT"Tardaste " ;H1 ; "minutos y " ;H2 ;" segundos " 
5050 LOCATE 1 ,8 :PRINT"Chocaste ";CH;"veces" 

5060 L0CATE1 , 10 :PRINT"Sacaste una media de " ; INT (ME) ; "Km/h " 
5070 KX=ES/1000:K1 !=ES-K%*1000 

5080 LOCATE 1 , 12 :PRINT"Recorr iste ";K^;"Km y " ;K1 !; "metros" 
5090 LOCATE 1 ,21 -.PRINT "Para seguir PULSAR * S *'si no * N *" 
5200 C¿=INKEY$ : A=INT (RND ( 1 ) *24) :PLAY "N=A ; " : IF C$=""THEN 5200 

5210 IF C*="S" OR C*="s"THEN 4000 ELSE IF C*="N" OR C*="n"THEN CLS ELSE 5200 
5220 FOR A1=0 TO 20 
5230 FOR Bl=l TO 37 

5235 IF B1>A1 + 1 AND BKA1+9 THEN 5250 
5240 LOCATE Bl , Al -.PRINT" *" 




Programas 



CAPTURA 
EN PLUTON 



Antes de llegar al lejano pla- 
neta Plutón una tormenta de 
meteoritos te impide el paso. 
Entre ellos -sin embargo- hay 
un valioso mineral. 




Cuando recibiste la orden de viajar a 
Plutón para recoger un valioso mine- 
ral, ignorabas que éste se hallaba entre 
los mortales meteoritos. Ahora todo 
depende de tu habilidad para manio- 
brar a altas velocidades en medio de la 
tormenta de grandes piedras siderales 
y recoger el mineral. 

Una vez que el juego comienza tu 
nave va al encuentro de la nube meteó- 
rica y tú puedes desplazarla a izquierda 
o derecha usando las teclas cursoras, 
que también te sirven para recoger el 
rico mineral. Al final de la partida, en la 
pantalla aparece la cantidad que has lo- 
grado recoger. 

Como los otros iuegos en éste tam- 
bién puedes introducir mejoras, como 
agregar otra nave enviada por 
ción competidora, mejorar 
o introducir música, etc. 



» ^iWm&'ldnteHD ENTERO > " (F 
30 FÜR 1= 1TÜ F:Y=RND(1> :NEXT 

40 SCREEN1 ,0 :A*« M M :DATA0 ,0 ,8 ,8 ,54 ,127 ,28 ,8 :F0R 1= 1T0 8 :READ A : A*=A*+CHR* ( A) :Nb X 
T I rSPRITE* < 1 > =A* 

50 COLOR 8,1,13:KEY OFF :WIDTH32 :CLS : X=15 : Z=0 
60 S=INT(RND(1)*32) 
7£¡ LOCATE S,23:PRINT"#" ; 
8iZi S=INT(RNDU) *32) 

90 IF RND < 1 ) < . 7 THEN LOCATE S ,23 :PR1NT" * " ; 
100 FOR 1= 1T0 10:NEXT I :PRINT 
110 C=VPEEK(6559+X) 

120 IF C=42 THEN PRI NT "RECORD OBTEN I DO :"; Z :PLAY "CEG" :END 
130 IF C=35 THEN Z=Z+1 :PLAí "L32CDE" 
140 PUT SPRITE l,(8*X-8,96) ,4,1 
150 A*=INKEY* 

160 X-X-(A*-CHR*<28)ANDX<31)4.(A#«CHR*(29) AND X>0) 
170 00 TU 60 
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Características principales: 

Sistema standard MSX. Memoria de 64 K 
RAM, 32 K ROM y 1 6 K de pantalla. 1 6 co- 
lores. 73 teclas. 32 sprites. Sistema mul- 
ticolor 64 x 48 bloques. Sonido: 8 octa- 
vas tres acordes. Conexiones para: casette, 
presora, 2 mandos y futuras expansionea 
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